home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_361_390 / time_387 / megafish / tools / mf-rexxscripts / aminet.mfish < prev    next >
Text File  |  1995-07-15  |  6KB  |  188 lines
  1. /*$VER: AmiNet.mfish V0.01 (Beta)
  2.  
  3.                            AmiNet.mfish
  4.                  Geschrieben von  Stephan Bülling
  5.               (c) 1993 - 1995 by Mega/Soft Limited
  6.                      Alle RECHTE vor behalten.
  7.  
  8.                 Das Programm ist PMWare (BriefWare)
  9.  
  10.                EMail   : rubberduck@blanker.ruhr.de
  11.                          rubberduck@sid.anubis.sub.de
  12.  
  13.                MailBox : +49-(0)231-815739
  14.                          +49-(0)231-448496
  15. */
  16. /*--------------------------- Config --------------------------------------*/
  17.  
  18. lw="CD0:"                                /* CD-ROM Laufwerk z.B CD0:       */
  19.  
  20. Tmp="T:"                                 /* Tempfad                        */
  21.  
  22. /*------------------------- Enpacken --------------------------------------*/
  23.  
  24. exlha="lha -x -m -Qd x"                  /* .Lha, Lzh                      */
  25. exdms="DMS WRITE"                        /* .DMS                           */
  26.  
  27. /*------------------------- Anzeigen --------------------------------------*/
  28.  
  29. zlha="lha vq"                            /* .LHA, LZH                      */
  30. zdms="DMS VIEW"                          /* .DMS                           */
  31. anzjpg="Fastview"                        /* .Jpg                           */
  32. anzgif="ZGIF"                            /* .Gif                           */
  33. anzgui="AmigaGuide"                      /* .GUIDE                         */
  34. anzeiger="MuchMore"                      /* Default                        */
  35.  
  36. /*-------------------------------------------------------------------------*/
  37.  
  38. ver="AmiNet.mfish V0.01 (Beta)"
  39.  
  40.  if show('library','rexxreqtools.library') = 0 then do
  41.    call addlib("rexxreqtools.library", 0, -30, 0)
  42.  end
  43.  
  44. OPTIONS RESULTS;cr=d2c(13)||d2c(10);
  45. SIGNAL ON Break_C;'WaitForPort MFISH';ADDRESS 'MFISH'
  46. NL = '0a'x;OPTIONS FAILAT 9999
  47.  
  48.   if ~Show(P,'MFISH') then do
  49.     Say cr||cr||""ver" (W) 1995 Stephan Bülling"||cr
  50.     Say "MegaFish muß zuerst gestartet werden!"||cr
  51.     options PROMPT "Ende mit <RETURN>"
  52.     pull it
  53.     exit
  54.   end
  55.  
  56. CALL MFISH
  57. rtezrequest(center(" Benötige die CD",50)||NL||,
  58.             center(" Aminet Nr. "dd"",50)||NL||,
  59.             center("in Laufwerk "lw"",50),"_Weiter|_Abruch",""ver"")
  60.  if rtresult == 0 then exit;if rtresult == 1 then
  61. IF EXISTS(""tmp"afile") then call start
  62.  else
  63. rtezrequest(center("Über "VER"",50)||NL||,
  64.             center(" Geschrieben von Stephan Bülling ",50)||NL||,
  65.             center(" (c) 1993-1995 by Mega/Soft Limited",50)||NL||,
  66.             center(" Alle RECHTE vorbehalten",50)||NL||,
  67.             center("",50)||NL||,
  68.             center(" Dieses Programm ist PM-Ware (Brief-Ware)",50)||NL||,
  69.             center(" EMail: rubberduck@blanker.ruhr.de",50)||NL||,
  70.             CENTER(" ",70),"_Yep",""VER"");start:
  71. call diraminet
  72. weiter:
  73. CALL rtezrequest(center("Programm : "nam"",40)|| NL ||center("Was soll ich da mit machen ",40),"Ent_packen|_Kopieren|_Zeigen|_Abbruch",""ver" (w) Stephan Bülling");
  74.  if rtresult == 0 then exit;if rtresult == 1 then CALL unpack
  75.  if rtresult == 2 then CALL Pack;
  76.  if rtresult == 3 then CALL anzeigen
  77.  close(file);ADDRESS COMMAND 'DELETE >NIL: 'tmp'afile QUIT'
  78.  
  79. pack:
  80.  call Directory
  81.   ADDRESS COMMAND 'copy 'LW||project'/'ix'/'nam' 'dirname''
  82. EXIT
  83.  
  84. unpack:
  85.  
  86. check = upper(right(nam, 3))
  87.  select
  88.     when check = 'LZH' | check = 'LHA' then call lha
  89.     when check = 'DMS' then call dms
  90.  otherwise
  91.  
  92. rtezrequest(center(""nam" ist kein bekanntes",40)||NL||,
  93.             center("Archivformat. Der Filename",40)||NL||,
  94.             center("muss mitt Lzh, Lha oder DMS enden",40)||NL||,
  95.             center("",40),"_oK",""ver"");
  96.  ADDRESS COMMAND ''anzeiger' 'LW||project'/'ix'/'nam''
  97. exit
  98.  
  99. anzeigen:
  100. check = upper(right(nam, 3))
  101.  select
  102.     when check = 'LZH' | check = 'LHA' then call anzlha
  103.     when check = 'DMS' then call anzdms
  104.     when check = 'JPG' then call anzjpg
  105.     when check = 'GIF' then call anzgif
  106.     when check = 'guide' then call anzgui
  107.   otherwise
  108. rtezrequest(center(""nam"",40)||NL||,
  109.             center("ist kein bekanntes Archivformat",40)||NL||,
  110.             center("",40),"_oK",""ver"");exit
  111. DMS:
  112. CALL Laufwerk
  113.  ADDRESS COMMAND ''exDMS' 'LW||project'/'ix'/'nam' TO 'volume''
  114. ENDIF
  115. exit
  116.  
  117. LHA:
  118.  call Directory
  119.  ADDRESS COMMAND ''exlha' 'LW||project'/'ix'/'nam' 'dirname''
  120. exit
  121.  
  122. anzdms:
  123.  ADDRESS COMMAND
  124.  ''zDMS' 'LW||project'/'ix'/'nam' >'Tmp'zeigen'
  125.  ''anzeiger' T:zeigen'
  126. call weiter
  127.  
  128. anzlha:
  129.  ADDRESS COMMAND
  130.  ''zlha' 'LW||project'/'ix'/'nam' >'Tmp'zeigen'
  131.  ''anzeiger' 'tmp'zeigen'
  132. call weiter
  133.  
  134. anzjpg:
  135.  ADDRESS COMMAND ''anzjpg' 'LW||project'/'ix'/'nam''
  136. call weiter
  137.  
  138. anzgif:
  139.  ADDRESS COMMAND ''anzgif' 'LW||project'/'ix'/'nam''
  140. call weiter
  141.  
  142. anzgui:
  143.  ADDRESS COMMAND ''anzgui' 'LW||project'/'ix'/'nam''
  144. call weiter
  145.  
  146. Directory:
  147. dirname = rtfilerequest(, ,"Wähle Directory für "nam"", ,,
  148.                            "rtfi_flags = freqf_nofiles")
  149. if rtresult == 0 then
  150.    CALL BREAK_C
  151.  else
  152.   IF dirname="Ram Disk:" then do;
  153.    dirname="RAM:"
  154. END
  155. return
  156.  
  157. Laufwerk:
  158. volume = rtfilerequest(, , 'Entpacke 'nam' auf Laufwerk ', ,,
  159.                "rtfi_volumerequest = 0")
  160. if rtresult == 0 then
  161.   call rtezrequest("Laufwerk nicht gefunden ;(", "oK", ,)
  162. CALL weiter
  163. else
  164. return
  165.  
  166. Nix:
  167. rtezrequest(center("Programm nicht gefunden",50)||NL||,
  168.             center("ist die richtige AmiNet CD im LW. ?",50)||NL||,
  169.             center("",50),"_Abbruch","");
  170. exit
  171. return
  172.  
  173. mfish:
  174. ADDRESS 'MFISH'
  175. STATUS DISK;disketten=RESULT;STATUS PROJECTNAME;project=RESULT;
  176. QUERY INDEX;ix=RESULT;ix=strip(ix);QUERY DISK;DD=RESULT;QUERY NAME;nam=RESULT;
  177. return
  178.  
  179. diraminet:
  180.  pfad=lw""project"/"ix"/"nam"";ADDRESS COMMAND 'dir 'pfad'~(#?.(readme)) >'tmp'afile'
  181. open(file,''tmp'AFILE','R');line=readln(file);nam=line;nam=STRIP(nam)
  182.  IF nam =" " then CALL NIX;ELSE
  183. return
  184.  
  185. BREAK_C:
  186. Exit
  187.  
  188.